Закрывает открытый файл TextStream

object.Close

Параметры
object объект типа TextStream

Пример
Следующий код иллюстрирует использование Close метода:

Sub CreateAFile
  Dim fso, MyFile
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
  MyFile.WriteLine("This is a test.")
  MyFile.Close
End Sub